<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%option explicit%>
<%
Dim RZ_IN
RZ_IN=1
%>
<!--#include file="../conn.inc.asp" -->
<!--#include file="admin_inc/admin.function.asp" -->
<!--#include file="admin_inc/admin.sqlfunction.asp" -->
<!--#include file="admin_inc/md5.asp" -->
<%
'作者：山林客（ah_bill）
'博客：http://ruizhinet.blog.163.com
'网站：http://www.ruizhinet.cn
'本信息不会影响您网站的正常访问，请保留
checkadmin(1)
dim password,rs,sqlt
password=HTMLEncode(request.QueryString("password"))
Set rs = Server.CreateObject("ADODB.Recordset")
sqlt = "select * from [c_user] where name='"&session("user_name")&"' and password='"&MD5(password)&"'"
rs.open sqlt,conn,1,1
If rs.eof or rs.bof Then 
response.write("fail")
End If 
rs.close
Set rs=Nothing
%>